home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Packager.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  7.6 KB  |  8 lines  |  [TEXT/.Ob4]
  1. ¯6› ˇ‡pÀT5r´$PackagerÇ¿Îq@ï>^nÇÉComposeÎDecomposeqExtractList@ÑÖ2˘úfIn2ˆßæTexts<
  2. ‡4Out6e∏uFilesܡˇ˚Pˇ˛˙Á˙Œ ˙Ÿ˝9˙Ô
  3. ˛i˙¯˛9˙ ˛˙∂˙±¸ ¸P¸.˙q˙K ˙S˙Ná, offset: , length:  entries. contains  is no package.PackagePackageà|¶ø¡ˇ¯êî!ˇ¿;·8êA;√Äbˇ¯ÄBˇ‡HÄA ûê~ û8`∞~ û ûÄûêûÄÄ!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§Äbˇ¯ÄBˇ‡Kˇˇ›ÄA ûÄæ Öêe ûÄfi ÜÄÊ áìß û ûÅ àÅ(ë> û©^1j±~ÄÄ!|¶ª°ˇÙO‡ ø¡ˇ¯î!ˇ¿;·8;√ û ûÅûÄ~|åAÊD û ûÄû Ñħêæ û®fi0Êˇˇ∞˛ ûÄ~ ÉÄcC‡C‡ 8`C‡‡Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√ û ûÅÅ>H}@&UCfl˛C‡‡Ä!ª¡ˇ¯O‡ ø°ˇÙî!ˇ∏;·8;£;ƒÅ}Åùã`A˛Ä} ÉÄcC‡C‡ 8`C‡‡Ä!ª°ˇÙO‡ øÅˇî!ˇ∏;·8;£;ƒ;ÖÄ}|úAÊ úÄ|C‡C‡ 8`C‡‡Ä!ªÅˇO‡ |¶øAˇËêî!ˇ†;·@êA;£;ƒ;e;Ü;@|∫‡|õ–Æ/A˙ 3ZC‡ˇÏ0öÑ0dêüˇ¸ÄBˇ‡HÄAÄüˇ¸êÉ ê}ÄΩ ÖÅ }    ¶9;à…8B@P/ÜA˛HåÈú≈B@4/áA˛,å…úÂB@ /ÜA˛åÈú≈B@ /Ü@˛ˇ‹òC‡òÄ(Ä!|¶ªAˇËO‡ øÅˇî!ˇ∞;·8;£;ƒ;Ä|º}]‡Æ,äAÊ|º}}‡Æ/ .A˙ 3úC‡ˇ‹|º9Ä.}ù·Æ0||£8ÄO|ùÆ0º|•8¿b|›)Æ0¸|ß9j}9Æ1<|©9@}]IÆÄ!ªÅˇO‡ øÅˇî!ˇ∞;·8;£;ƒ;Ä|º}}‡Æ/ãA˛|º}ù‡Æ,å.AÊ 3úC‡ˇ‹|º8`|}·ÆÄ!ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ;Ö≥ü8}8û8ø8¿8‡ÄBˇHÄAÄ Ä!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ;Öìü8}8û8ø8¿8‡ÄBˇKˇ˚çÄAÄ Ä!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ;Ö8}8û8ø8¿8‡ÄBˇHÄA©_±\Ä Ä!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ;Ö8}8û8ø8¿8‡ÄBˇKˇ˙ŸÄAÅë|Ä Ä!|¶ªÅˇO‡ |¶øAˇËêî!ˇ®;·8êA;£;ƒ;Ö;F;g8û8}ÄBˇHÄAê|Åú/ @˙ 8`C‡Ñ8z8õĺ8¿ÄBˇHÄA8z8õ8øÄBˇHÄAà/ɢA˛ 8`C‡<8z8õ8øÄBˇKˇ˘—ÄAàü,Ñ1AÊ 8`C‡8`C‡‡Ä(Ä!|¶ªAˇËO‡ |¶øaˇÏêî!ˇ∞;·8êA;√;Ñ;•;f8bˇÿ8ÄÄBˇHÄAê~8|8ùÄæ8¿ÄBˇKˇ˘ÈÄA8|8ù8†˘ÄBˇHÄA8|8ù8†1ÄBˇKˇ¯˝ÄA8†êªÄ Ä!|¶ªaˇÏO‡ |¶øaˇÏêî!ˇ∞;·8êA;√;Ñ;•;f8~ÄBˇHÄA8bˇ–8Ä8›8º8˚ÄBˇHÄAÄ Ä!|¶ªaˇÏO‡ |¶ø!ˇ‰êî!ˇ8;·@êA;¿;Ä;`;@; ì?ì? ì?ÄBˇ‰HÄA808Ä%ÄBˇ‰HÄA808Ä%Kˇ˚—ÄbˇÙÄBˇ‡KˇˇuÄA;C8zKˇ˜Ÿ88üĬˇĶˇÙ8fl,Kˇ˛Y;†Äˇ,1ë,Å"ˇ‰âI/
  4. A˙¯Äbˇ¸ÄBˇ‡Kˇ˜ÈÄA;É3Ω ú8|Äúˇ¸8ø08¿%ġ¥|    ¶ÄDˇ∏O‡!ÄA808Ä%Kˇ˙ô808Ä%ÄBˇKˇ˙ÄA;√/û@˛9`ôbC‡ 8z8úÅɡ¸Ä ˇ§|    ¶ÄLˇ®O‡!ÄA ú8~ÄBˇHÄAê| úÄ| ÉÄü,Ä£ |ƒ*0Êêˇ,808Ä%ÄBˇ‰Kˇ¯ÄA808Ä%Kˇ˙çC‡ˇ8ÅˇÄàˇÙ8ΩKˇ˙Õ ö8zÄöˇ¸Äˇú|    ¶ÄDˇ†O‡!ÄA;c,õAÊ¥8Å"ˇÄâˇÙ õĪ ÖÄ• ÖÄ≈ 8•ÄBˇHÄA8ÅBˇÄäˇÙ õĪ ÖÄ•Kˇ˙©8ÅbˇÄãˇÙÄø,Kˇ˙ï õÅõ åÄ,Äå|£"êø, ö8zÄöˇ¸8ªÄˇî|    ¶ÄDˇòO‡!ÄA;cC‡ˇL8zÄ√ˇ¸Äˇ¨|    ¶ÄFˇ∞O‡!ÄA „/A˙d8zÅˇ¸Äˇ¥|    ¶ÄHˇ∏O‡!ÄA;É úÅ< â9Ä%}â¶80çI8B@P/äA˛HçiôCB@4/ãA˛,çIùcB@ /äA˛çiùCB@ /ä@˛ˇ‹òC‡ò808Ä%Kˇ¯9808Ä%ÄBˇKˇ˜EÄA;√8ÄǡÄÑˇÙ8æ8¿ÄBˇKˇ˘ÄA úÄ‹Ü0fêflˇ¸ÄBˇ‡Kˇ˝UÄAÄflˇ¸ê√ ;#8Ä‚ˇÄáˇÙ ôÄŸ 8π úĸÄBˇKˇ˙yÄA8ÅˇÄàˇÙ ôÄŸ 8π úĸÄBˇKˇ˚1ÄAC‡˛|Ä8ü08†%8fl*Kˇ˚a©?*,â}@&UK?˛ôbÄêÄ!|¶ª!ˇ‰O‡ |¶ø!ˇ‰}Ä&êëÅî!˛®;·@êA; ì?»ì?∏ì?∞ì?¨ÄBˇ‰Kˇ¯ÄA88Ä%ÄBˇ‰Kˇˆ¡ÄA88Ä%Kˇ˜u8T8Ä%ÄBˇ‰KˇÛ©ÄA8T8Ä%KˇˆΩ8|8Ä%ÄBˇ‰KˇÛâÄA8|8Ä%Kˇˆù8T8Ä%8ø¨8fl¥Ä‚ˇÄÁˇÙKˇ¯È!/A˙9 ô"C‡Ã8¥ÅBˇÄäˇÙ8ø¶Kˇ˜˝N`Ç;†AÛÏ©¶ùXA˝‡8¥ÅǡÄåˇÙÄBˇHÄA;c8¥ÄǡÄÑˇÙ8ø,8¿%ÄBˇHÄA8¥Ä¢ˇÄÖˇÙ8ø‹Kˇ˜ı8¥Ä¬ˇÄܡÙ8øÿKˇ˜·8¥Ä‚ˇÄáˇÙÄBˇKˇÚÂÄA;C9}¶9?,9_8}    +}j*A‚|àX@0@Ê C‡ˇË|¶ T8}0}k0|àX@@Ê N`BC‡3ΩC‡ˇ@Û†8∞8üƒÅǡĨˇÙ8fl‘Kˇ¯ô8ƒÄǡÄÑˇÙ®ø¶0•ˇˇKˇˆÄfl‘0Êêˇ‘;¿8¥ÅˇÄàˇÙÄø¨Äfl‘ÄBˇKˇÙ¡ÄA©?¶HA˘‰8¥ÅBˇÄäˇÙ8ø,8¿%ÄBˇKˇÚ¡ÄA8¥ÅbˇÄãˇÙ8ø‡Kˇˆ≈8¥ÅǡÄåˇÙ8øËKˇˆ±ûËA˛88ƒÄǡÄÑˇÙ8ø,8¿%ÄBˇKˇˆ=ÄA8ƒÄ¢ˇÄÖˇÙÄø‡Kˇıπ|ûË@‰$8ƒÄ¬ˇÄܡÙ|˚–ÅË|ß@KˇıïC‡0Ë@˘(8ƒÅ"ˇÄâˇÙ}[–ÅË}äXÄø‹|•`Kˇıe3fiC‡ˇ8¥Ä¬ˇÄܡÙÄBˇKˇÚÅÄAġÿÉ8/ú@˝pú0|ÄBˇ‡KˇÙ°ÄAìÉ ;#8¥ÅˇÄàˇÙ ôÄŸ 8π8¸ÄBˇKˇÙiÄA8ƒÅ"ˇÄâˇÙ ôÄŸ 8π8¸ÄBˇKˇÙ=ÄA8¥ÅBˇÄäˇÙÄø¨ÅÿÅü‹|ÀbÄBˇKˇÒΩÄAĨÄBˇKˇˆ˘ÄAÄüÿ|§Äfl‹Ü(,ú@Âpú0|ÄBˇ‡KˇïÄAìÉ ;#8¥Ä‚ˇÄáˇÙ ôÄŸ 8π8¸ÄBˇKˇeÄA8ƒÅˇÄàˇÙ ôÄŸ 8π8¸ÄBˇKˇ=ÄAÄ∞8ü|8†%8fl®Kˇˆ©88Ä%KˇÚ°88Ä%ÄBˇKˇ˘5ÄAê∞8ƒÅ"ˇÄâˇÙÄø∞8¿ÄBˇKˇÄA8¥ÅBˇÄäˇÙÄø¨ÄflÿÄBˇKˇÔ)ÄAÅ‹ã0k롸ÄBˇ‡KˇÔŸÄAÅˇ¸ëc ;#8¥ÅǡÄåˇÙ ôÄŸ 8πġ‹ÄBˇKˇÔ©ÄA8ƒÄǡÄÑˇÙ ôÄŸ 8πġ‹ÄBˇKˇÔÅÄAÄ∞ÄBˇKˇ¯ëÄA®ø®/@˙@Û 8¿C‡8¿ò¬Ä ÄˇÄ!|¶|ÔÒ ª!ˇ‰O‡ |¶ø!ˇ‰êî!ˇ;·@êA;¿;†;`;@ì_xì_hì_\ÄBˇ‰KˇÛΩÄA8 8Ä%ÄBˇ‰KˇÛiÄA8 8Ä%KˇÒ%8 8Ä%8ø\8fldÅˇÄˡÙKˇÛq!#/âA˛9@ôBC‡òÄbˇÙÄBˇ‡Kˇ˜ïÄA;£8}KˇÌë8dÅbˇÄãˇÙ8øKˇÚi´?;Ä|ú»AÂ∏8dÅǡÄåˇÙ8ø48¿%ÄBˇKˇÒëÄAÄbˇ¸ÄBˇ‡KˇÌ°ÄA;√8}8ûÄ£ˇ¸Äˇ§|    ¶ÄEˇ®O‡!ÄA û8~Äûˇ¸8ø48¿%ġ¥|    ¶ÄDˇ∏O‡!ÄA8dĬˇÄÜˇÙ û8æKˇÚ%8dÄ‚ˇÄáˇÙ û8æKˇÚ
  5. 3úC‡ˇH8}Åˇ¸Äˇ¨|    ¶ÄHˇ∞O‡!ÄA!#/    A˙t8}ÅCˇ¸Ä
  6. ˇ¥|    ¶ÄJˇ∏O‡!ÄA;√ ûÅ~ ã8Ä%|â¶8ø4çã8B@P/åA˛HåkôÖB@4/ÉA˛,çãúeB@ /åA˛åkùÖB@ /å@˛ˇ‹òC‡ò848Ä%KˇÔ5848Ä%ÄBˇKˇÔMÄA;c8tĬˇÄܡÙ8ª8¿ÄBˇKˇÔ    ÄA ûIJá0gêˇˇ¸ÄBˇ‡KˇÓÌÄAġˇ¸ê„ ;C8dÅˇÄàˇÙ öÄ⁄ 8∫ ûIJÄBˇKˇÓπÄA8tÅ"ˇÄâˇÙ öÄ⁄ 8∫ ûIJÄBˇKˇÓëÄA8{ÄBˇKˇÓÅÄAC‡˛l9@ôBÄ∏Ä!|¶ª!ˇ‰O‡ |¶ø°ˇÙêî!ˇ@;·8êA8êdê\ÄBˇ‰KˇÓÄA88Ä%ÄBˇ‰KˇÌÒÄA88Ä%KˇÌ˘ÄBˇÏHÄA88Ä%ÄBˇÏHÄA88Ä%8ø\8fl`ÅbˇÄΡÙKˇ%!É,åAÊ$8bˇ¿8ÄÄBˇÏKˇÍôÄA8`òbC‡88`ÄǡÄÑˇÙ8øNKˇÔ%8bˇ¥8Ä ÄBˇÏKˇÍ]ÄA®N8ÄÄBˇÏHÄA8bˇ®8Ä
  7. ÄBˇÏKˇÍ)ÄAÄBˇÏKˇÍ≠ÄA´øN;¿ËA˘ƒ8`Ä¢ˇÄÖˇÙ8ø(8¿%ÄBˇKˇÌQÄA8`ĬˇÄܡÙ8øTKˇÓ˘8`Ä‚ˇÄáˇÙ8øXKˇÓÂ8(8Ä%ÄBˇÏKˇÍÄA8bˇú8Ä ÄBˇÏKˇÈâÄAÄT8ÄÄBˇÏKˇÍÄA8bˇê8Ä ÄBˇÏKˇÈuÄAÄX8ÄÄBˇÏKˇÈaÄAÄBˇÏKˇÈıÄA3fiC‡ˇ<9ôÄêÄ!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ â ˇ¸ˇˇˇˇEntryDescˇ¯ˇˇˇˇQueueElementDesc ˇÙˇˇˇˇFIFOQueueDesc
  8.     ä 
  9. %')+-/025BCHIKNRTZbcjx~ãë†ß±◊€·ÂÈÌÒ˝†?EG[ikmvxÄÇ᧶“‘‡„ÎÓÿ‚ÏAMWª»ŒÂÁ!$,/ã¯8InitFIFOQueue
  10. ·{q¯>8FIFOQueue.Enqueue
  11. ‚{e
  12. ·{q¯fi8FIFOQueue.Dequeue
  13. ·{q¯Ó8FIFOQueue.Empty
  14. ·{q¯Ç8FIFOQueueDesc.First¯ï8FIFOQueueDesc.Next
  15. „{this¯— ¿EntryDesc.SetNameÂ{i¯˜8AppendObj„{i¯ç8SkipObj„{i¯§8WriteIntc„{x¯ª8WriteLIntc„{x¯”8ReadIntb„{x¯Î8ReadLIntb„{x¯¶ 8OpenPackagech
  16. „{f¯–8CreatePackage‰{currPos
  17. ·{fdst¯Î8ClosePackage
  18. ·{f‰{res¯Éà¿Compose
  19. Ê{buf,currPos
  20. „{e
  21. Â{entries
  22. fdst
  23. ·{fsrc‚{nofEntries
  24. ‰{qelem*res¯Òò¿Extract
  25. Ê{buf„{copyLen‘currPos‚{extrI‹extrLenÿextrOffset
  26. ∞fdst
  27. ¨fsrc·{iå{inPackage‡len¶nofEntriesËoffset‰{pos1Â{pos2®res¯¿
  28. ∞¿DecomposeÊ{@for
  29. Â{buf
  30. ‚{entries
  31. ·{entry
  32. ‰{fdst
  33. ‹fsrc„{inofEntries¯¿ à8List‚{@for
  34. ‹fsrc·{i‘lenŒnofEntriesÿoffset¯À 8$$done